PL/M-84 COMPILER RMXON 


SERTESwTIII PL/M-86 X195 COMPILATION OF MODULE 


OSJECT MOOULE PLACED IN :F1:LEDON.038J 


COMPILER INVOKED BY: PLM8é.86 sFI:LEDON.~P&S5 XKEF 


1 rmxon:- 
DO; 
/*x 
RMX8S TASK TO TURN ON CXU LED 
x / 
2 1 DECLARE LOCATION LITERALLY ’POINTER’; 
3 1 
4 2 DECLARE exchangesaddrass LOCATION; 
5 °C DECLARE timeSlimit WORD; 
6 2 END rqSwait,s | 
€ 1 raSsend: PROCEDURE( axchangesaddrassy messagetaddress ) 
8 2 DECLARE exchangeSacdress LOCATION, 
9 2 a: DECLARE messageSaddress LOCATION, 
10 2 END rassend, . 
11 1 rqgetsk: PROCEDUREC' stdSpointer ) 
12 2 DECLARE stdSpointer POINTER, 
13 2 END ra3ctsk; 
14. 14 raSexch: PROCENUREC exchangefaddress ) EXTERNAL; 
15 2 DECLARE exchangeSaddress LOCATION; 
16 e END ratexch, 
17 1 DECLARE taskSlinks LITERALLY 
“link? forward LOCATION, 
Linkdhback LOCATION, 
thread LOCATION’; 
18 4 DECLARE taskSlinks3a LITERALLY 
“LlinkSforward ° LOCATION, 
Link@back LOCATION, 
thread . LOCATION, 
delay WORD’; 
19 4 DECLARE task$descriptor 
taskSlinks, | 
delay . WORD, 
unused WORD, 
‘axchangedaddress LOCATION, 
sp ; LOCATION, 
marker ADDRESS, 
priority BY Tey 
status BYTE? 
nanetptr POINTER, 
losSlinks LOCATION, 
taskSlink LOCATION, 


nask 


LITERALLY “STRUCTURE ( 


BYTE)’; 


RMXCN 


rasSwait: PROCEDUREC exchangesgaddressy, timeSlimit ) LOCATION EXTERNAL, 


EXTERNAL, 
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DECLARE taskidescSoverlay LITERALLY “STRUCTURE (¢ 


task3Slinks, 


massagesSaddress LOCATION, 
axchangeSaddress LOCATION, 
sp LOCATION, 
marker ADDRESS, 
priority BYTE, 
status BYTE, 
Namesptr ‘POINTER, 
iosSlinks LOCATION, 
task Slink LOCATION, 
BYTE)’, 


mask 


DECLARE taskSdescriptor$langth LITERALLY °417; 


DECLARE running LITERALLY “000100008°%,; 
DECLARE ndp$task LITERALLY 7000010008", 
DECLARE maskdint LITERALLY 000001008’, 
DECLARE suspended .LITERALLY “000000108 %; 
DECLARE delayed LITERALLY 000000018’, 
DECLARE bottom$flag LITERALLY "AQc7%c7h’, 
DECLARE unused3flag LITERALLY "Oc7h’; 


DECLARE staticStaskScdescriptor LITERALLY 
“STRUCTURE €¢ 


name (6) BYTE, 
pc POINTER, 
sp LOCATION, 
stklen WORD, 
ds | POINTER, 
priority BYTE, 
exchangesSaddress LOCATION, 
task3ptr LOCATION, 
task3ndo AYTE) %; 
DECLARE ndpSused LITERALLY °17, 
DECLARE msgShdr LITERALLY 
"Link... LOCATION, 
langth WORD, 
type . BYTE-s 
homesSexchange LOCATION, 


responseSexchange, LOCATION’; 

DECLARE msg$Sdescriptor LITERALLY ’STRUCTURE(C 
msgshdrs , 
remainder (1) BYTE)’; 


DECLARE message MSGSDESCRIPTOR; 


messacgeShead LOCATION, 
messageStail LOCATION, 
tasktdhead LOCATION, 


askStail LOCATION, 
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end ledon, 


LOCATION) %; 


DECLARE sleep EXCHANGESDESCRIPTOR PU8LIC; 
DECLAKE msgqex EXCHANGESDESCRIPTOR PUBLIC, 
DECLARE switches 3YTE PUS3LIC; 
PROCEDURE PUBLIC; 
declare i byte, . 
declare msg3ptr pointer; 
DECLARE mess BASED msgSptr MSGSDESCRIPTOR; 
declare timeSout literally ‘3’, 
declares TRUE literally °17%; 
declare FALSE literally °07%, 
declare PPI literally °’262h’%,; 
declare IN literally ’0%,; /* ppi input channel x / 
declare OUT literally ’27%, /x ppi output channel x/ 
declare RED literally ’20h’%; /x bit to turn red led on xf 
declare YELLOW literally ’40h’s /* bit to turn yellow led on *x/ 
declares CLEAR literally ’Oh’; /x no led’s on x/ 
declare STATE byte, /* led states x/ 
stats = clear; /x initially no led’s on x/ 
OUTPUTCPPItout) = states ; 
CALL racxch(Cadslesp)-; 
CALL racxch(Camegex), 
MESSAGE.TYPE= 2507 
CALL raqsend(amsgqex-amessage), 
DO WHILE 1; : 
do case SWITCHES, 
state = state and not red , /x turn red led off wf 
, state = state or red ; /x turn red led on xf 
state = state and not yellow ; /*x turn yellow led off */ 
state = state or yellow ; /x turn yellow led on */ 
end /*x casesx*/ ; 
OUTPUTCPPItout) = state, /* actual write x / 
msgiptr = rqSwaitCaisleep,0); /* wait forever for msgx/ 
CALL rqsend(3msgex,adamessage), /* give mmxtst hi-sign */ 
end, 
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CROSS~KREFERENCE 


NAME, ATTRIBUTES, 


LISTING 
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BOTTOMFLAS 
CLEAR. « « 
DELAYED. . 


EXCHANGEADDRESS. 
EXCHANGEADORESS. 
EXCHANGEADDRESS. 


EXCHANGEDESCRIPTOR 


FALSE. « « 
Te. 2 © © 
IN « «© «© « 
LEDON. « « 
LOCATION . 


AASKINT. « 
MESS 2. « » 
LINK . 
LENGTH 
TYPE . 


HOMEEXCHANG e 
RESPONSEEXCH 
REMAINDER. 


HESSAGES 15 
LINK . 
LENGTH 


TYPE a 


HOMEEXCHANGE 


RESPONSEEXCHANG 


REMAINDER. 
MESSAGCADDRESS 


MSGEXe « « 


MSGHOR . . 


MSGPTR . 
NOPTASK. 
NOPUSED. 
CUT. « -« 
QUTPUT . 
PPI. « 
RED.» -« 
RMXON.« 
RQCTSK 
RQCXCH 
RQSEND 
RQWATT 


MESSAGEHEAD. 
MESSAGETAIL. 
TASKHEAD 
TASKTAIL 
ZEXCHANGELINK 


MSGDESCRIPTOR. 


N 
N 


LITERALLY “Oc?¢7h’ : 
LITERALLY 20h*. EN PROG CEEDOND: 52 


LITERALLY *0000090018’ 

POINTER IN PROC (RQCXCH) PARAMETER 13 
POINTER IN PRCC CRQSEND) PARAMETER 8 
‘POINTER IN PROC CRQWAIT) PARAMETER 4 


LITERALLY -*“STRUCTURE (messagetSheadLOCATION-massageStailLOCATION,t 
~ask3headLOCATION,-task$StailLOCATION-exchangeflinkLOCATION) ” 

35 36 . . 
LITERALLY °0’ IN PROC CLEDON) 
BYTE IN PROC CLEDON) 
LITERALLY °O% $IN PROC CLEDON) 
PROCEDURE PUBLIC STACK=0008H . 
LITERALLY ’POINTER’ 3 4 8 9 15 33 35 

36 41 
LITERALLY *000001008’ 
STRUCTURE BASEDCMSGPTR) IN PROC CLEOON)D 
POINTER 
WORD 
BYTE 
POINTER 
POINTER’ 
BYTE ARRAY (1) 
STRUCTURE 857 «67 
POINTER 
WORD 
BYTE 56% 
POINTER 
POINTER 
BYTE ARRAY(1) 
POINTER IN PRCC CROSEND) PARAMETER 9 
LITERALLY “STRUCTURE (Cmsg$hdrv,remainder(1) BYTE)’ 
STRUCTURE PUBLIC 55 at 67 


Ui 
Ul 
4 
—_— 


‘POINTER 


POINTER 

POINTER 

POINTER 

POINTER : 

LITERALLY “linkLOCATION-LengthWORD-typedYTE-homesexchan 
~geaLOCATION-responsesSexchangeLOCATION’ 33 “41 
POINTER IN PROC CLEDON)D 66% 

LITERALLY *00C010008’ 

LITERALLY °17’ 

LITERALLY ’27% IN PROC (CLEDON) 53 65° 


BUILTIN ) J3% 65% 
LITERALLY “262h’ IN PROC (CLEDON) 53 65 
LITERALLY ’%20h” IN PROC CLEDON) 60 61 


PROCEDURE STACK=O00COH 
PROCEDURE EXTERNAL (C2) STACK=0000H 


PROCEDURE EXTERNALC3) STACK=0QQ0H 54 oe, 
PROCEDURE EXTERNAL(1) STACK=0000H. 57 67 


PROCEDURE POINTER EXTERNAL CO) STACK=0000H 66 


PLUM ASe, CONOR ee PuMO® 
CROSS“REFERENCE LISTING 
22 RUNNING. « « © «© «» e@ 
S35 OOOAH 10 SLEEP. . s o ® ® . e 
O000H ne MESSAGEHEAD. .« -» 
O002H 2 MESSAGETAIL« «© « 
O004H 2 TASKHEAD « « « » 
O006H 2 ASKTAIL « »« « 
QO008H 2 EXCHANGELINK . -@ 
51 0022H 1 STATE. a e e a « . a 
29 STATICTASKDESCRIPTOR 
25 SUSPENDED. « «0 «© « « 
37 0020H 1 SWITCHES s » e . oe 
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LITERALLY °00C100008’ 

STRUCTURE PUBLIC .. 54 66 

POINTER 

POINTER 

POINTER 

POINTER: 

POINTER 

BYTe IN PROC CLEDON) 52x 53 60* é0 61* 61 62* 
62 63% 63 65 

LITERALLY “STRUCTURE Cname C6) 8YTE-pcPOINTER,-spLOCATIO 
“NestklenWORC,dsPOINTER,prioritySYTE,exchangesaddr 


—tessLOCATION-task$ptrLOCATION,task3ndpBYTE) ” 


POINTER IN PROC CROQCTSK) PARAMETER 12 
LITERALLY *°000000108B’ 
BYTE PUBLIC 59 


OCATIBO-markerA DDRESS> BAEK DEORVEELEtatusa VTE, nbas sPAREUIASTRUCEUR TI MKOERGATAGH nase AvedmUAeAssONCATSOHYsEeRangeSeddressLOCATIONspL 
TION, horker ADDRESS, pridAIRKQBSTREBTARuUSSYTE-nameGSTERALNYERSTESETEAKS KOGSKREDHnkazhSlanpkKObOATHOSeaddSRB¥SEtKHangesSaddrassLOCATION,spLOCA 


21 . TASKDESCRIPTCORLENGTH 
17 TASKLINKS. «0 «2 «@ « « 
18 TASKLINKSA «© «0 «0 «@ « 

4 OOO00H 2 Bp a een ee ry « a ° e 
42 | TIMEOUT. « «© «© «© ow o 
43 TRUE a . . e s e . . 
28 UNUSEDFLAG « « « « « 
49 VE WOW tec, bk care Se 


MODULE INFORMATION: 


CODE AREA SIZE 
CONSTANT AREA SIZE 
VARIABLE AREA SIZE 
MAXIMUM STACK SIZE 
158 LINES READ 
O PROGRAM WARNINGS 
O PROGRAM ERRORS 
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OC8&7H 
0000H 
0923H 
OOC8H 


LITERALLY av 

LITERALLY “’linkSforwardLOCATION, lLink$SbackLOCATION, threadLo 
-CATION’ 7 . 
LITERALLY “linkSforwardLOCATION, linkSbackLOCATION, threadLoO 
“CATION, cdelayWORD’ , 
WORD IN PROC CRQWAIT) PARAMETER 5 

LITERALLY ’°3°% IN PROC (CLEDON) 

LITERALLY “1% IN PROC (LEDON) 

LITERALLY "Oc7h’ 

LITERALLY °40h% IN PROC CLEDON) mee 63 


